unit uBaseForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, XPMenu, WrapperXPMenu;

type
  TfBaseForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    AWrapperXPMenu: TWrapperXPMenu;
  end;

var
  fBaseForm: TfBaseForm;

implementation

{$R *.dfm}

procedure TfBaseForm.FormCreate(Sender: TObject);
begin
  AWrapperXPMenu := TWrapperXPMenu.Create(Self);
  Self.Font.Name := Screen.HintFont.Name
end;

procedure TfBaseForm.FormDestroy(Sender: TObject);
begin
  AWrapperXPMenu.Active := False;
  AWrapperXPMenu.Free;
end;

procedure TfBaseForm.FormShow(Sender: TObject);
begin
  AWrapperXPMenu.Active := True;
end;

end.
